home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / expert22.sit / HyperExpert 2.2 / card_2066.txt < prev    next >
Text File  |  1990-10-05  |  10KB  |  462 lines
  1. -- card: 2066 from stack: in.2
  2. -- bmap block id: 2533
  3. -- flags: 0000
  4. -- background id: 2738
  5. -- name: default
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   global buttontype, sizetype, answertype, fonttype, aligntype
  9.   set lockscreen to true
  10.   hide card fld fonttypes
  11.   put card fld button into buttontype
  12.   put card fld size into sizetype
  13.   put card fld font into fonttype
  14.   put card fld answers into answertype
  15.   put card fld align into aligntype
  16.   show card button "return"
  17. end closeCard
  18.  
  19.  
  20.  
  21. -- part 1 (button)
  22. -- low flags: 00
  23. -- high flags: A004
  24. -- rect: left=74 top=54 right=79 bottom=200
  25. -- title width / last selected line: 0
  26. -- icon id / first selected line: 0 / 0
  27. -- text alignment: 1
  28. -- font id: 0
  29. -- text size: 12
  30. -- style flags: 0
  31. -- line height: 16
  32. -- part name: Set Font Types
  33. ----- HyperTalk script -----
  34. on mouseUp
  35.   put card fld font into x
  36.   put card field fonttypes into thefont
  37.   DoList 999,thefont,one
  38.  
  39.   put item 2 of the result into card fld font
  40.   if card fld font is empty then
  41.     put x into card fld font
  42.  
  43.   end if
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 2 (button)
  55. -- low flags: 00
  56. -- high flags: A004
  57. -- rect: left=74 top=244 right=269 bottom=200
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: Set Button Types
  66. ----- HyperTalk script -----
  67. on mousedown
  68.   put card fld buttontypes into z
  69.   put the mouseloc into myPlace
  70.   put item 1 of myPlace - 20 into horiz
  71.   put item 2 of myPlace - 10 into vert
  72.   get PopUpMenu( z, 1, vert, horiz)
  73.   put it into x
  74.   put item x of card fld buttontypes into card fld button
  75.   if cd fld button is empty then
  76.     answer "Try again, this is a pop up menu"
  77.     put item 4 of card fld "buttontypes" into card fld button
  78.  
  79.   end if
  80. end mousedown
  81.  
  82.  
  83.  
  84.  
  85. -- part 3 (field)
  86. -- low flags: 81
  87. -- high flags: 0000
  88. -- rect: left=88 top=248 right=342 bottom=332
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 0
  92. -- font id: 3
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: buttontypes
  97. ----- HyperTalk script -----
  98. on mouseUp
  99.   hide me
  100. end mouseUp
  101.  
  102.  
  103.  
  104. -- part 4 (field)
  105. -- low flags: 80
  106. -- high flags: 0007
  107. -- rect: left=98 top=275 right=342 bottom=396
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 0
  111. -- font id: 3
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: fonttypes
  116. ----- HyperTalk script -----
  117. on mouseUp
  118.   hide me
  119. end mouseUp
  120.  
  121.  
  122.  
  123. -- part 5 (field)
  124. -- low flags: 01
  125. -- high flags: 0004
  126. -- rect: left=231 top=52 right=81 bottom=370
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 0 / 0
  129. -- text alignment: 1
  130. -- font id: 3
  131. -- text size: 14
  132. -- style flags: 256
  133. -- line height: 18
  134. -- part name: font
  135. ----- HyperTalk script -----
  136. on mouseUp
  137.   answer "This is not a button"
  138. end mouseUp
  139.  
  140.  
  141.  
  142. -- part 9 (field)
  143. -- low flags: 01
  144. -- high flags: 0004
  145. -- rect: left=232 top=242 right=271 bottom=371
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 1
  149. -- font id: 3
  150. -- text size: 14
  151. -- style flags: 256
  152. -- line height: 18
  153. -- part name: button
  154. ----- HyperTalk script -----
  155. on mouseUp
  156.  
  157.   answer "This is not a button"
  158. end mouseUp
  159.  
  160.  
  161.  
  162.  
  163. -- part 10 (button)
  164. -- low flags: 00
  165. -- high flags: A004
  166. -- rect: left=0 top=288 right=342 bottom=66
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 29114 / 29114
  169. -- text alignment: 1
  170. -- font id: 0
  171. -- text size: 12
  172. -- style flags: 0
  173. -- line height: 16
  174. -- part name: return
  175. ----- HyperTalk script -----
  176. on mouseUp
  177.   go to card build
  178.   answer "Click on Build Expert System to begin"
  179. end mouseUp
  180.  
  181.  
  182.  
  183. -- part 11 (button)
  184. -- low flags: 00
  185. -- high flags: A004
  186. -- rect: left=74 top=99 right=124 bottom=200
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 0 / 0
  189. -- text alignment: 1
  190. -- font id: 0
  191. -- text size: 12
  192. -- style flags: 0
  193. -- line height: 16
  194. -- part name: Set Font Size
  195. ----- HyperTalk script -----
  196.  
  197. on mousedown
  198.   put card fld fontsize into pp
  199.   put the mouseloc into myPlace
  200.   put item 1 of myPlace - 20 into horiz
  201.   put item 2 of myPlace - 10 into vert
  202.   get PopUpMenu(pp, 1, vert, horiz)
  203.   put it into x
  204.  
  205.  
  206.   put item x of card fld fontsize into card fld size
  207.   if cd fld size is empty then
  208.     answer "Try again, this is a pop up menu"
  209.     put item 5 of card fld "fontsize" into card fld size
  210.  
  211.   end if
  212. end mousedown
  213.  
  214.  
  215.  
  216.  
  217.  
  218.  
  219.  
  220. -- part 13 (field)
  221. -- low flags: 01
  222. -- high flags: 0004
  223. -- rect: left=231 top=97 right=126 bottom=370
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 1
  227. -- font id: 3
  228. -- text size: 14
  229. -- style flags: 256
  230. -- line height: 18
  231. -- part name: size
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   answer "This is not a button"
  235. end mouseUp
  236.  
  237.  
  238.  
  239. -- part 14 (field)
  240. -- low flags: 81
  241. -- high flags: 0000
  242. -- rect: left=279 top=1 right=86 bottom=479
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 0 / 0
  245. -- text alignment: 0
  246. -- font id: 3
  247. -- text size: 12
  248. -- style flags: 0
  249. -- line height: 16
  250. -- part name: fontsize
  251. ----- HyperTalk script -----
  252. on mouseUp
  253.   hide me
  254. end mouseUp
  255.  
  256.  
  257.  
  258. -- part 16 (button)
  259. -- low flags: 00
  260. -- high flags: A004
  261. -- rect: left=74 top=196 right=221 bottom=204
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 0 / 0
  264. -- text alignment: 1
  265. -- font id: 0
  266. -- text size: 12
  267. -- style flags: 0
  268. -- line height: 16
  269. -- part name: Set Answer Types
  270. ----- HyperTalk script -----
  271.  
  272. on mousedown
  273.   put card fld answertype into pp
  274.   put the mouseloc into myPlace
  275.   put item 1 of myPlace - 20 into horiz
  276.   put item 2 of myPlace - 10 into vert
  277.   get PopUpMenu(pp, 1, vert, horiz)
  278.   put it into x
  279.   put item x of card fld answertype into card fld answers
  280.   if cd fld answers is empty then
  281.     answer "Try again, this is a pop up menu"
  282.     put item 1 of card fld "answertype" into card fld answers
  283.  
  284.   end if
  285. end mousedown
  286.  
  287.  
  288.  
  289.  
  290.  
  291.  
  292.  
  293. -- part 17 (field)
  294. -- low flags: 01
  295. -- high flags: 0004
  296. -- rect: left=232 top=193 right=222 bottom=371
  297. -- title width / last selected line: 0
  298. -- icon id / first selected line: 0 / 0
  299. -- text alignment: 1
  300. -- font id: 3
  301. -- text size: 14
  302. -- style flags: 256
  303. -- line height: 18
  304. -- part name: answers
  305. ----- HyperTalk script -----
  306. on mouseUp
  307.   answer "This is not a button"
  308. end mouseUp
  309.  
  310.  
  311.  
  312. -- part 18 (field)
  313. -- low flags: 81
  314. -- high flags: 0000
  315. -- rect: left=11 top=0 right=28 bottom=275
  316. -- title width / last selected line: 0
  317. -- icon id / first selected line: 0 / 0
  318. -- text alignment: 0
  319. -- font id: 3
  320. -- text size: 12
  321. -- style flags: 0
  322. -- line height: 16
  323. -- part name: answertype
  324. ----- HyperTalk script -----
  325. on mouseUp
  326.   hide me
  327. end mouseUp
  328.  
  329.  
  330.  
  331. -- part 19 (button)
  332. -- low flags: 00
  333. -- high flags: A004
  334. -- rect: left=452 top=293 right=342 bottom=512
  335. -- title width / last selected line: 0
  336. -- icon id / first selected line: 29114 / 29114
  337. -- text alignment: 1
  338. -- font id: 0
  339. -- text size: 12
  340. -- style flags: 0
  341. -- line height: 16
  342. -- part name: To Tree
  343. ----- HyperTalk script -----
  344. on mouseUp
  345.   go to card full
  346. end mouseUp
  347.  
  348.  
  349.  
  350. -- part 21 (button)
  351. -- low flags: 00
  352. -- high flags: A004
  353. -- rect: left=74 top=147 right=172 bottom=204
  354. -- title width / last selected line: 0
  355. -- icon id / first selected line: 0 / 0
  356. -- text alignment: 1
  357. -- font id: 0
  358. -- text size: 12
  359. -- style flags: 0
  360. -- line height: 16
  361. -- part name: Set Text Align
  362. ----- HyperTalk script -----
  363. on mousedown
  364.   put card fld aligntype into pp
  365.   put the mouseloc into myPlace
  366.   put item 1 of myPlace - 20 into horiz
  367.   put item 2 of myPlace - 10 into vert
  368.   get PopUpMenu(pp, 1, vert, horiz)
  369.   put it into x
  370.   put item x of card fld aligntype into card fld align
  371.   if cd fld align is empty then
  372.     answer "Try again, this is a pop up menu"
  373.     put item 1 of card fld "aligntype" into card fld align
  374.  
  375.   end if
  376. end mousedown
  377.  
  378.  
  379.  
  380.  
  381.  
  382.  
  383.  
  384. -- part 22 (field)
  385. -- low flags: 01
  386. -- high flags: 0004
  387. -- rect: left=231 top=145 right=174 bottom=370
  388. -- title width / last selected line: 0
  389. -- icon id / first selected line: 0 / 0
  390. -- text alignment: 1
  391. -- font id: 3
  392. -- text size: 14
  393. -- style flags: 256
  394. -- line height: 18
  395. -- part name: align
  396. ----- HyperTalk script -----
  397. on mouseUp
  398.   answer "This is not a button"
  399. end mouseUp
  400.  
  401.  
  402.  
  403. -- part 23 (field)
  404. -- low flags: 81
  405. -- high flags: 0004
  406. -- rect: left=164 top=279 right=336 bottom=304
  407. -- title width / last selected line: 0
  408. -- icon id / first selected line: 0 / 0
  409. -- text alignment: 0
  410. -- font id: 3
  411. -- text size: 12
  412. -- style flags: 0
  413. -- line height: 16
  414. -- part name: aligntype
  415. ----- HyperTalk script -----
  416. on mouseUp
  417.   hide me
  418. end mouseUp
  419.  
  420.  
  421.  
  422. -- part contents for card part 3
  423. ----- text -----
  424. Transparent,Opaque,Rectangle,Shadow,roundRect,checkbox,radioButton
  425.  
  426.  
  427. -- part contents for card part 14
  428. ----- text -----
  429. 9,10,12,14,18,24,32,48
  430.  
  431.  
  432. -- part contents for card part 18
  433. ----- text -----
  434. True-False,Yes-No,A-B,Variable
  435.  
  436. -- part contents for card part 23
  437. ----- text -----
  438. Left,Center,Right
  439.  
  440. -- part contents for card part 4
  441. ----- text -----
  442. Albuquerque,Astrology,Athens,Avant Garde,Beverly Hills,Black Knight,Boston,BostonII,BostonIIΓÇôNY,Cairo,Calligraphy,Cape Canaveral,Caps,Cartoon,Cavanaugh,Chicago,Commando,Courier,Crypt,Cupertino,Dallas,Doodads,Florence,Geneva,Gimcracks,Gloss,Helsinki,Helvetica,Hollywood,Kawasaki*,London,Los Angeles,Manhattan,MicroAvantGarde,MicroCourier,Mobile,Monaco,New York,OCR-A,Paris,Pierce,Raster,San Francisco,Silicon Beach,Sydney,Symbol,Teeny,ThinAvantGarde,ThinCourier,Thingamajigs,ThinHelvetica,ThinSchoolbook,Times,Tiny,Tiny Ital,Tinytown,Tombstone,Venice,White Shadow,Zapf Chancery,Zapf Dingbats
  443.  
  444. -- part contents for card part 17
  445. ----- text -----
  446. Yes-No
  447.  
  448. -- part contents for card part 5
  449. ----- text -----
  450. Geneva
  451.  
  452. -- part contents for card part 9
  453. ----- text -----
  454. Shadow
  455.  
  456. -- part contents for card part 22
  457. ----- text -----
  458. Left
  459.  
  460. -- part contents for card part 13
  461. ----- text -----
  462. 18